VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MsComCtl.ocx"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{B3FB64BF-91F9-11D7-A482-0008A14158BC}#2.22#0"; "ITGControls.ocx"
Begin VB.Form frmMaintMembership 
   BackColor       =   &H00F7D9C2&
   BorderStyle     =   0  'None
   Caption         =   "sss"
   ClientHeight    =   8790
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11100
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   8790
   ScaleWidth      =   11100
   ShowInTaskbar   =   0   'False
   Begin ITGControls.ITGTab SSTab1 
      Height          =   7860
      Left            =   45
      TabIndex        =   0
      Top             =   45
      Width           =   10965
      _ExtentX        =   19341
      _ExtentY        =   13864
      TabCount        =   2
      TabCaption(0)   =   "               Main               "
      TabContCtrlCnt(0)=   2
      Tab(0)ContCtrlCap(1)=   "ComunionFrames2"
      Tab(0)ContCtrlCap(2)=   "ComunionFrames1"
      TabCaption(1)   =   "               List               "
      TabContCtrlCnt(1)=   1
      Tab(1)ContCtrlCap(1)=   "dtgList"
      TabTheme        =   2
      ActiveTabBackStartColor=   16250865
      ActiveTabBackEndColor=   16243138
      InActiveTabBackStartColor=   16243138
      InActiveTabBackEndColor=   16243138
      InActiveTabForeColor=   0
      BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      OuterBorderColor=   4210752
      TopLeftInnerBorderColor=   4210752
      BottomRightInnerBorderColor=   4210752
      DisabledTabBackColor=   16243138
      DisabledTabForeColor=   -2147483630
      Begin ITGControls.ComunionFrames ComunionFrames2 
         Height          =   2520
         Left            =   60
         Top             =   5235
         Width           =   10830
         _ExtentX        =   19103
         _ExtentY        =   4445
         FrameColor      =   4210752
         BackColor       =   16243138
         FillColor       =   16243138
         RoundedCorner   =   0   'False
         Caption         =   "Lost Card Application"
         Alignment       =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ThemeColor      =   5
         ColorFrom       =   16243138
         ColorTo         =   16250865
         Begin MSDataGridLib.DataGrid dtgMembership 
            Height          =   1950
            Left            =   75
            TabIndex        =   51
            Top             =   480
            Width           =   10650
            _ExtentX        =   18785
            _ExtentY        =   3440
            _Version        =   393216
            AllowUpdate     =   -1  'True
            AllowArrows     =   -1  'True
            Appearance      =   0
            BackColor       =   16777215
            HeadLines       =   1
            RowHeight       =   15
            TabAction       =   2
            FormatLocked    =   -1  'True
            AllowDelete     =   -1  'True
            BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ColumnCount     =   4
            BeginProperty Column00 
               DataField       =   "dRequestDate"
               Caption         =   "Date Requested PC Replacement"
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   1033
                  SubFormatType   =   0
               EndProperty
            EndProperty
            BeginProperty Column01 
               DataField       =   "cReason"
               Caption         =   "Replacement Perm Card Reason"
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   1033
                  SubFormatType   =   0
               EndProperty
            EndProperty
            BeginProperty Column02 
               DataField       =   "cOSNo"
               Caption         =   "Replacement OS No."
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   1033
                  SubFormatType   =   0
               EndProperty
            EndProperty
            BeginProperty Column03 
               DataField       =   "cReplaced"
               Caption         =   "Replaced Previous Perm Card Details"
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   1033
                  SubFormatType   =   0
               EndProperty
            EndProperty
            SplitCount      =   1
            BeginProperty Split0 
               BeginProperty Column00 
                  ColumnWidth     =   2505.26
               EndProperty
               BeginProperty Column01 
                  ColumnWidth     =   3374.929
               EndProperty
               BeginProperty Column02 
                  ColumnWidth     =   1665.071
               EndProperty
               BeginProperty Column03 
                  ColumnWidth     =   2775.118
               EndProperty
            EndProperty
         End
      End
      Begin ITGControls.ComunionFrames ComunionFrames1 
         Height          =   4830
         Left            =   60
         Top             =   360
         Width           =   10845
         _ExtentX        =   19129
         _ExtentY        =   8520
         FrameColor      =   4210752
         BackColor       =   16243138
         FillColor       =   16243138
         RoundedCorner   =   0   'False
         Caption         =   "Information"
         Alignment       =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ThemeColor      =   5
         ColorFrom       =   16243138
         ColorTo         =   16250865
         Begin VB.CommandButton cmdPickCode 
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   300
            Left            =   2640
            Picture         =   "frmMaintMembership.frx":0000
            Style           =   1  'Graphical
            TabIndex        =   55
            Top             =   600
            Width           =   315
         End
         Begin ITGControls.ITGTab SSTab3 
            Height          =   3690
            Left            =   90
            TabIndex        =   3
            Top             =   1080
            Width           =   10680
            _ExtentX        =   18838
            _ExtentY        =   6509
            TabCount        =   2
            TabCaption(0)   =   "          Membership Information          "
            TabContCtrlCnt(0)=   28
            Tab(0)ContCtrlCap(1)=   "cboPermCard"
            Tab(0)ContCtrlCap(2)=   "Timer1"
            Tab(0)ContCtrlCap(3)=   "cboType"
            Tab(0)ContCtrlCap(4)=   "txtCardNo"
            Tab(0)ContCtrlCap(5)=   "txtRemarks"
            Tab(0)ContCtrlCap(6)=   "dtbDate"
            Tab(0)ContCtrlCap(7)=   "txtCardName"
            Tab(0)ContCtrlCap(8)=   "txtAppVenue"
            Tab(0)ContCtrlCap(9)=   "txtType"
            Tab(0)ContCtrlCap(10)=   "txtAttendBy"
            Tab(0)ContCtrlCap(11)=   "txtPermCardAvailable"
            Tab(0)ContCtrlCap(12)=   "txtPermCardRCV"
            Tab(0)ContCtrlCap(13)=   "txtPermCardOrder"
            Tab(0)ContCtrlCap(14)=   "txtReceivedBy"
            Tab(0)ContCtrlCap(15)=   "dtbPCRDate"
            Tab(0)ContCtrlCap(16)=   "txtRelationship"
            Tab(0)ContCtrlCap(17)=   "txtEncodedBy"
            Tab(0)ContCtrlCap(18)=   "txtORNo"
            Tab(0)ContCtrlCap(19)=   "cboTempCard"
            Tab(0)ContCtrlCap(20)=   "txtTempCard"
            Tab(0)ContCtrlCap(21)=   "Label1"
            Tab(0)ContCtrlCap(22)=   "Label2"
            Tab(0)ContCtrlCap(23)=   "Label3"
            Tab(0)ContCtrlCap(24)=   "Label4"
            Tab(0)ContCtrlCap(25)=   "Label5"
            Tab(0)ContCtrlCap(26)=   "Label6"
            Tab(0)ContCtrlCap(27)=   "Label7"
            Tab(0)ContCtrlCap(28)=   "Label8"
            TabCaption(1)   =   "          Personal/Employment Information          "
            TabContCtrlCnt(1)=   18
            Tab(1)ContCtrlCap(1)=   "cboSCountry"
            Tab(1)ContCtrlCap(2)=   "txtSCountry"
            Tab(1)ContCtrlCap(3)=   "txtSAddress"
            Tab(1)ContCtrlCap(4)=   "txtSCity"
            Tab(1)ContCtrlCap(5)=   "txtSState"
            Tab(1)ContCtrlCap(6)=   "txtSZip"
            Tab(1)ContCtrlCap(7)=   "txtJobTitle"
            Tab(1)ContCtrlCap(8)=   "txtFax"
            Tab(1)ContCtrlCap(9)=   "txtEmail"
            Tab(1)ContCtrlCap(10)=   "txtTel1"
            Tab(1)ContCtrlCap(11)=   "txtTel2"
            Tab(1)ContCtrlCap(12)=   "txtInAccessFax"
            Tab(1)ContCtrlCap(13)=   "Frame1"
            Tab(1)ContCtrlCap(14)=   "txtEmpAdd"
            Tab(1)ContCtrlCap(15)=   "txtEmpPhone1"
            Tab(1)ContCtrlCap(16)=   "txtEmpPhone2"
            Tab(1)ContCtrlCap(17)=   "txtEmpFax"
            Tab(1)ContCtrlCap(18)=   "Label14"
            TabTheme        =   2
            ActiveTabBackEndColor=   16243138
            InActiveTabBackStartColor=   16243138
            InActiveTabBackEndColor=   16243138
            BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            OuterBorderColor=   4210752
            TopLeftInnerBorderColor=   4210752
            BottomRightInnerBorderColor=   4210752
            DisabledTabBackColor=   16243138
            DisabledTabForeColor=   -2147483630
            Begin VB.ComboBox cboPermCard 
               Appearance      =   0  'Flat
               BackColor       =   &H00FFFFFF&
               Height          =   315
               ItemData        =   "frmMaintMembership.frx":014A
               Left            =   1935
               List            =   "frmMaintMembership.frx":0157
               Style           =   2  'Dropdown List
               TabIndex        =   52
               Top             =   1545
               Width           =   1575
            End
            Begin VB.ComboBox cboSCountry 
               Height          =   315
               Left            =   -73440
               Style           =   2  'Dropdown List
               TabIndex        =   37
               Top             =   1290
               Width           =   3600
            End
            Begin ITGControls.ITGTextBox txtSCountry 
               Height          =   285
               Left            =   -71685
               TabIndex        =   36
               Tag             =   "cboCountry"
               Top             =   1305
               Visible         =   0   'False
               Width           =   1575
               _ExtentX        =   2672
               _ExtentY        =   503
               LabelBackColor  =   16777215
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   50
               Mandatory       =   -1  'True
               Label           =   "Country"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   0
               TextBoxWidth    =   1515
            End
            Begin ITGControls.ITGTextBox txtSAddress 
               Height          =   285
               Left            =   -74835
               TabIndex        =   35
               Tag             =   "S"
               Top             =   600
               Width           =   6120
               _ExtentX        =   10583
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   50
               Label           =   "Address"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1410
               TextBoxWidth    =   4650
            End
            Begin ITGControls.ITGTextBox txtSCity 
               Height          =   285
               Left            =   -74835
               TabIndex        =   34
               Tag             =   "S"
               Top             =   930
               Width           =   3555
               _ExtentX        =   6059
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   50
               Label           =   "City / Province"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1410
               TextBoxWidth    =   2085
            End
            Begin ITGControls.ITGTextBox txtSState 
               Height          =   285
               Left            =   -71340
               TabIndex        =   33
               Tag             =   "S"
               Top             =   930
               Width           =   2625
               _ExtentX        =   4524
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   50
               Label           =   "Street"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   0
               TextBoxWidth    =   2565
            End
            Begin ITGControls.ITGTextBox txtSZip 
               Height          =   285
               Left            =   -69780
               TabIndex        =   32
               Tag             =   "S"
               Top             =   1290
               Width           =   1065
               _ExtentX        =   1773
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   10
               Label           =   "Street"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   0
               TextBoxWidth    =   1005
            End
            Begin ITGControls.ITGTextBox txtJobTitle 
               Height          =   285
               Left            =   -68415
               TabIndex        =   31
               Tag             =   "S"
               Top             =   915
               Width           =   3915
               _ExtentX        =   6694
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   50
               Label           =   "Job Title"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1000
               TextBoxWidth    =   2855
            End
            Begin ITGControls.ITGTextBox txtFax 
               Height          =   285
               Left            =   -71640
               TabIndex        =   30
               Tag             =   "C"
               Top             =   2175
               Width           =   2955
               _ExtentX        =   5001
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   20
               Label           =   "Fax"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1410
               TextBoxWidth    =   1485
            End
            Begin ITGControls.ITGTextBox txtEmail 
               Height          =   285
               Left            =   -74880
               TabIndex        =   29
               Tag             =   "C"
               Top             =   2535
               Width           =   2955
               _ExtentX        =   5001
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   50
               Label           =   "E-Mail 01"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1410
               TextBoxWidth    =   1485
            End
            Begin ITGControls.ITGTextBox txtTel1 
               Height          =   285
               Left            =   -74880
               TabIndex        =   28
               Tag             =   "C"
               Top             =   1800
               Width           =   2955
               _ExtentX        =   5001
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   20
               Label           =   "Phone 01"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1410
               TextBoxWidth    =   1485
            End
            Begin ITGControls.ITGTextBox txtTel2 
               Height          =   285
               Left            =   -74880
               TabIndex        =   27
               Tag             =   "C"
               Top             =   2145
               Width           =   2955
               _ExtentX        =   5001
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   20
               Label           =   "Phone 02"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1410
               TextBoxWidth    =   1485
            End
            Begin ITGControls.ITGTextBox txtInAccessFax 
               Height          =   285
               Left            =   -71640
               TabIndex        =   26
               Tag             =   "C"
               Top             =   1800
               Width           =   2955
               _ExtentX        =   5001
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   20
               Label           =   "Inaccessible Fax"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1410
               TextBoxWidth    =   1485
            End
            Begin VB.Frame Frame1 
               BackColor       =   &H00F7D9C2&
               Height          =   3015
               Left            =   -68640
               TabIndex        =   25
               Top             =   480
               Width           =   30
            End
            Begin ITGControls.ITGTextBox txtEmpAdd 
               Height          =   285
               Left            =   -68400
               TabIndex        =   24
               Tag             =   "S"
               Top             =   1335
               Width           =   3900
               _ExtentX        =   6668
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   50
               Label           =   "Address"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1000
               TextBoxWidth    =   2840
            End
            Begin ITGControls.ITGTextBox txtEmpPhone1 
               Height          =   285
               Left            =   -68400
               TabIndex        =   23
               Tag             =   "C"
               Top             =   1725
               Width           =   2535
               _ExtentX        =   4260
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   20
               Label           =   "Phone 01"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1000
               TextBoxWidth    =   1475
            End
            Begin ITGControls.ITGTextBox txtEmpPhone2 
               Height          =   285
               Left            =   -68400
               TabIndex        =   22
               Tag             =   "C"
               Top             =   2070
               Width           =   2535
               _ExtentX        =   4260
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   20
               Label           =   "Phone 02"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1000
               TextBoxWidth    =   1475
            End
            Begin ITGControls.ITGTextBox txtEmpFax 
               Height          =   285
               Left            =   -68400
               TabIndex        =   21
               Tag             =   "C"
               Top             =   2445
               Width           =   2535
               _ExtentX        =   4260
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               MaxLength       =   20
               Label           =   "Fax"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1000
               TextBoxWidth    =   1475
            End
            Begin VB.Timer Timer1 
               Interval        =   300
               Left            =   3360
               Top             =   240
            End
            Begin VB.ComboBox cboType 
               Appearance      =   0  'Flat
               BackColor       =   &H00FFFFFF&
               Height          =   315
               ItemData        =   "frmMaintMembership.frx":0170
               Left            =   9360
               List            =   "frmMaintMembership.frx":0180
               Style           =   2  'Dropdown List
               TabIndex        =   20
               Top             =   495
               Width           =   1215
            End
            Begin ITGControls.ITGTextBox txtCardNo 
               Height          =   285
               Left            =   135
               TabIndex        =   19
               Top             =   525
               Width           =   3120
               _ExtentX        =   5292
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               BackColor       =   14745599
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               AllCaps         =   -1  'True
               Mandatory       =   -1  'True
               Label           =   "Card No."
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1800
               TextBoxWidth    =   1260
               Required        =   -1  'True
            End
            Begin ITGControls.ITGTextBox txtRemarks 
               Height          =   285
               Left            =   6600
               TabIndex        =   18
               Top             =   2400
               Width           =   3960
               _ExtentX        =   6879
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Label           =   "Remarks"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   0
               TextBoxWidth    =   3900
               LinkForeColor   =   0
            End
            Begin ITGControls.ITGDateBox dtbDate 
               Height          =   285
               Left            =   6300
               TabIndex        =   17
               Tag             =   "Delivery Date"
               Top             =   525
               Width           =   1275
               _ExtentX        =   2249
               _ExtentY        =   503
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Text            =   ""
               SendKeysTab     =   -1  'True
               Mandatory       =   -1  'True
            End
            Begin ITGControls.ITGTextBox txtCardName 
               Height          =   285
               Left            =   120
               TabIndex        =   16
               Top             =   855
               Width           =   4620
               _ExtentX        =   7938
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Label           =   "Card Name"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1800
               TextBoxWidth    =   2760
            End
            Begin ITGControls.ITGTextBox txtAppVenue 
               Height          =   285
               Left            =   5040
               TabIndex        =   15
               Top             =   855
               Width           =   5505
               _ExtentX        =   9499
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Label           =   "App. Venue"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1250
               TextBoxWidth    =   4195
               Required        =   -1  'True
            End
            Begin ITGControls.ITGTextBox txtType 
               Height          =   285
               Left            =   8115
               TabIndex        =   14
               Tag             =   "cboType"
               Top             =   495
               Width           =   2430
               _ExtentX        =   4075
               _ExtentY        =   503
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Mandatory       =   -1  'True
               Label           =   "Card Type"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1280
               TextBoxWidth    =   1090
               Required        =   -1  'True
            End
            Begin ITGControls.ITGTextBox txtAttendBy 
               Height          =   285
               Left            =   5040
               TabIndex        =   13
               Top             =   1200
               Width           =   4305
               _ExtentX        =   7382
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Label           =   "Attended By"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1250
               TextBoxWidth    =   2995
            End
            Begin ITGControls.ITGTextBox txtPermCardAvailable 
               Height          =   285
               Left            =   120
               TabIndex        =   12
               Top             =   1200
               Width           =   4620
               _ExtentX        =   7938
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Label           =   "Perm Card Available"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1800
               TextBoxWidth    =   2760
            End
            Begin ITGControls.ITGTextBox txtPermCardRCV 
               Height          =   285
               Left            =   120
               TabIndex        =   11
               Top             =   1560
               Width           =   3300
               _ExtentX        =   5609
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Label           =   "Perm Card RCV"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1800
               TextBoxWidth    =   1440
            End
            Begin ITGControls.ITGTextBox txtPermCardOrder 
               Height          =   285
               Left            =   120
               TabIndex        =   10
               Top             =   1920
               Width           =   4620
               _ExtentX        =   7938
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Label           =   "Perm Card Ordered"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1800
               TextBoxWidth    =   2760
            End
            Begin ITGControls.ITGTextBox txtReceivedBy 
               Height          =   285
               Left            =   120
               TabIndex        =   9
               Top             =   2280
               Width           =   4620
               _ExtentX        =   7938
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Label           =   "Perm Card Received By"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   1800
               TextBoxWidth    =   2760
            End
            Begin ITGControls.ITGDateBox dtbPCRDate 
               Height          =   285
               Left            =   6630
               TabIndex        =   8
               Tag             =   "Delivery Date"
               Top             =   1560
               Width           =   1275
               _ExtentX        =   2249
               _ExtentY        =   503
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Text            =   ""
               SendKeysTab     =   -1  'True
               Mandatory       =   -1  'True
            End
            Begin ITGControls.ITGTextBox txtRelationship 
               Height          =   285
               Left            =   1920
               TabIndex        =   7
               Top             =   2760
               Width           =   2820
               _ExtentX        =   4868
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Label           =   "Relationsip to the Member"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   0
               TextBoxWidth    =   2760
            End
            Begin ITGControls.ITGTextBox txtEncodedBy 
               Height          =   285
               Left            =   6600
               TabIndex        =   5
               Top             =   2760
               Width           =   2760
               _ExtentX        =   4763
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Label           =   "Remarks"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   0
               TextBoxWidth    =   2700
               LinkForeColor   =   0
            End
            Begin ITGControls.ITGTextBox txtORNo 
               Height          =   285
               Left            =   6600
               TabIndex        =   4
               Top             =   3120
               Width           =   2760
               _ExtentX        =   4763
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Label           =   "Remarks"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   0
               TextBoxWidth    =   2700
               LinkForeColor   =   0
            End
            Begin VB.ComboBox cboTempCard 
               Appearance      =   0  'Flat
               BackColor       =   &H00FFFFFF&
               Height          =   315
               ItemData        =   "frmMaintMembership.frx":01CA
               Left            =   6600
               List            =   "frmMaintMembership.frx":01D7
               Style           =   2  'Dropdown List
               TabIndex        =   53
               Top             =   1920
               Width           =   1575
            End
            Begin ITGControls.ITGTextBox txtTempCard 
               Height          =   285
               Left            =   6600
               TabIndex        =   6
               Top             =   1920
               Width           =   1560
               _ExtentX        =   2646
               _ExtentY        =   503
               SendKeysTab     =   -1  'True
               LabelBackColor  =   16243138
               BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Label           =   "Temp Card RCVD by SALES"
               BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               LabelWidth      =   0
               TextBoxWidth    =   1500
            End
            Begin VB.Label Label9 
               BackStyle       =   0  'Transparent
               Caption         =   "M.I."
               ForeColor       =   &H000000C0&
               Height          =   255
               Left            =   -68385
               TabIndex        =   50
               Top             =   420
               Width           =   765
            End
            Begin VB.Label Label10 
               BackStyle       =   0  'Transparent
               Caption         =   "First Name"
               ForeColor       =   &H000000C0&
               Height          =   255
               Left            =   -70830
               TabIndex        =   49
               Top             =   420
               Width           =   1320
            End
            Begin VB.Label Label11 
               BackStyle       =   0  'Transparent
               Caption         =   "Last Name"
               ForeColor       =   &H000000C0&
               Height          =   255
               Left            =   -73410
               TabIndex        =   48
               Top             =   420
               Width           =   1320
            End
            Begin VB.Label Label12 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "Country / Zip"
               Height          =   195
               Left            =   -74805
               TabIndex        =   47
               Top             =   2535
               Width           =   1140
            End
            Begin VB.Label Label14 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "Employment Information"
               BeginProperty Font 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   195
               Left            =   -68400
               TabIndex        =   46
               Top             =   600
               Width           =   2130
            End
            Begin VB.Label Label1 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "Application Date"
               Height          =   195
               Left            =   5070
               TabIndex        =   45
               Top             =   555
               Width           =   1170
            End
            Begin VB.Label Label2 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "Perm Card RCV Date"
               Height          =   195
               Left            =   5040
               TabIndex        =   44
               Top             =   1590
               Width           =   1485
            End
            Begin VB.Label Label3 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "(If authorized)"
               Height          =   195
               Left            =   120
               TabIndex        =   43
               Top             =   2520
               Width           =   1050
            End
            Begin VB.Label Label4 
               BackStyle       =   0  'Transparent
               Caption         =   "Relationship to the Member"
               Height          =   495
               Left            =   120
               TabIndex        =   42
               Top             =   2760
               Width           =   1605
            End
            Begin VB.Label Label5 
               BackStyle       =   0  'Transparent
               Caption         =   "Temp Card RCVD by SALES"
               Height          =   495
               Left            =   5040
               TabIndex        =   41
               Top             =   1920
               Width           =   1605
            End
            Begin VB.Label Label6 
               BackStyle       =   0  'Transparent
               Caption         =   "Remarks"
               Height          =   495
               Left            =   5520
               TabIndex        =   40
               Top             =   2400
               Width           =   1605
            End
            Begin VB.Label Label7 
               BackStyle       =   0  'Transparent
               Caption         =   "Encoded By"
               Height          =   495
               Left            =   5520
               TabIndex        =   39
               Top             =   2760
               Width           =   1605
            End
            Begin VB.Label Label8 
               BackStyle       =   0  'Transparent
               Caption         =   "OR Number"
               Height          =   495
               Left            =   5520
               TabIndex        =   38
               Top             =   3120
               Width           =   1605
            End
         End
         Begin ITGControls.ITGTextBox txtName 
            Height          =   285
            Left            =   2955
            TabIndex        =   54
            Tag             =   "S"
            Top             =   600
            Width           =   4605
            _ExtentX        =   8017
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            MaxLength       =   50
            Mandatory       =   -1  'True
            Label           =   "Full Name"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   0
            TextBoxWidth    =   4545
         End
         Begin ITGControls.ITGTextBox txtCode 
            Height          =   285
            Left            =   120
            TabIndex        =   56
            Top             =   600
            Width           =   2490
            _ExtentX        =   4180
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            AllCaps         =   -1  'True
            Mandatory       =   -1  'True
            Label           =   "Customer"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   -1  'True
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1410
            TextBoxWidth    =   1020
            Hover           =   -1  'True
            Required        =   -1  'True
            LinkForeColor   =   16711680
         End
      End
      Begin MSDataGridLib.DataGrid dtgList 
         Height          =   6840
         Left            =   -74925
         TabIndex        =   1
         Top             =   360
         Width           =   10815
         _ExtentX        =   19076
         _ExtentY        =   12065
         _Version        =   393216
         AllowUpdate     =   0   'False
         AllowArrows     =   -1  'True
         Appearance      =   0
         HeadLines       =   1
         RowHeight       =   15
         TabAction       =   2
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   5
         BeginProperty Column00 
            DataField       =   "cCardNo"
            Caption         =   "Card No."
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "cCardName"
            Caption         =   "Card Name"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "cCode"
            Caption         =   "Customer Code"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "cName"
            Caption         =   "Customer Name"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "dAppDate"
            Caption         =   "Application Date"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            AllowRowSizing  =   0   'False
            BeginProperty Column00 
            EndProperty
            BeginProperty Column01 
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   1500.095
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   2819.906
            EndProperty
            BeginProperty Column04 
            EndProperty
         EndProperty
      End
   End
   Begin MSComctlLib.StatusBar sbRS 
      Align           =   2  'Align Bottom
      Height          =   285
      Left            =   0
      TabIndex        =   2
      Top             =   8505
      Width           =   11100
      _ExtentX        =   19579
      _ExtentY        =   503
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   5
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            AutoSize        =   1
            Bevel           =   0
            Object.Width           =   6352
            MinWidth        =   2
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "frmMaintMembership"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'IT Group Inc. 2005.09.23

Option Explicit

'Object variables





'Recordset variables
Private WithEvents rsHeader As ADODB.Recordset
Attribute rsHeader.VB_VarHelpID = -1
Private rsDetail As ADODB.Recordset
Private rsMembership As ADODB.Recordset

'Form mode enumeration
Enum eMaintMembership
    Normal
    AddNewEdit
    Find
End Enum
Public Mode As eMaintMembership

'Other declarations
Public dtgName As String
Public sBit As String
Private vBM As Variant 'Recordset bookmark variable

'Security Acess Level variables
Public lACNew As Boolean
Public lACEdit As Boolean
Public lACDelete As Boolean
Public lACPost As Boolean
Public lACCancel As Boolean
Public lACPrint As Boolean



Private Sub cboPermCard_Change()
    txtPermCardRCV = ""
    txtPermCardRCV = Trim(cboPermCard)
End Sub

Private Sub cboPermCard_Click()
    txtPermCardRCV = ""
    txtPermCardRCV = Trim(cboPermCard)
End Sub

Private Sub cboTempCard_Change()
    txtTempCard = ""
    txtTempCard = Trim(cboTempCard)
End Sub

Private Sub cboTempCard_Click()
    txtTempCard = ""
    txtTempCard = Trim(cboTempCard)
End Sub

Private Sub cboType_Click()
    txtType = ""
    txtType = Trim(cboType)
End Sub

Private Sub txtCode_LabelClick()
    'oLink.LinkForm frmMaintCustomer,"CLIENT_CUSTOMER", Trim(txtCode)
End Sub

Private Sub cmdPickCode_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtCode)
    frmITGPicker.zType = QCustomer
    frmITGPicker.Condition = "where cCustomerType = 'MEMBER'"
    frmITGPicker.Show vbModal
    txtCode = frmITGPicker.zCode
    txtName = frmITGPicker.zName
    If Mode = AddNewEdit Then txtCardNo = frmITGPicker.zCode
    txtSAddress = GetValueFrTable("cAddress", "CLIENT_CUSTOMER", "cCode = '" & frmITGPicker.zCode & "'")
    txtSCity = GetValueFrTable("cCity", "CLIENT_CUSTOMER", "cCode = '" & frmITGPicker.zCode & "'")
    txtSCountry = GetValueFrTable("cCountry", "CLIENT_CUSTOMER", "cCode = '" & frmITGPicker.zCode & "'")
    txtSCountry = GetValueFrTable("cCountry", "CLIENT_CUSTOMER", "cCode = '" & frmITGPicker.zCode & "'")
    txtSState = GetValueFrTable("cState", "CLIENT_CUSTOMER", "cCode = '" & frmITGPicker.zCode & "'")
    txtSZip = GetValueFrTable("cZip", "CLIENT_CUSTOMER", "cCode = '" & frmITGPicker.zCode & "'")
    txtTel1 = GetValueFrTable("cTel1", "CLIENT_CUSTOMER", "cCode = '" & frmITGPicker.zCode & "'")
    txtTel2 = GetValueFrTable("cTel2", "CLIENT_CUSTOMER", "cCode = '" & frmITGPicker.zCode & "'")
    txtFax = GetValueFrTable("cFax", "CLIENT_CUSTOMER", "cCode = '" & frmITGPicker.zCode & "'")
    txtEmail = GetValueFrTable("cEmail1", "CLIENT_CUSTOMER", "cCode = '" & frmITGPicker.zCode & "'")
    txtJobTitle = GetValueFrTable("cJobTitle", "CLIENT_CUSTOMER", "cCode = '" & frmITGPicker.zCode & "'")
    txtEmpAdd = GetValueFrTable("cAddress", "CLIENT_CUSTOMER", "cCode = '" & frmITGPicker.zCode & "'")
    If Trim(txtName) <> "" Then SendKeys "{Tab}"
    TBFindPrimary
End Sub

Private Sub dtgList_HeadClick(ByVal ColIndex As Integer)
    SortGrid dtgList, ColIndex, rsMembership
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim iKey As Integer
    iKey = ToolbarIndex(KeyCode, Shift)
    If iKey <> 0 Then
        If ITGLedgerMain.tbrMain.Buttons(iKey).Enabled = True Then
            ToolbarFunction iKey
        End If
    End If
End Sub

'Set Your Object
Private Sub Form_Load()

    Set FrmName = Me
    FormSetup

    AcessBit Me, GetValueFrTable("AccessLevel", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' AND [Module] = 'MI03'")
    
    Set rsHeader = New ADODB.Recordset
    Set rsDetail = New ADODB.Recordset
    Set rsMembership = New ADODB.Recordset
    
    Call LoadComboValues(cboSCountry, "cValue", "PARAMETER_SYSTEM", "WHERE cType = 'COUNTRY'")
    
    FormLocking True
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True, , , True
    BitVisible ITGLedgerMain.tbrMain, True
    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = True

    Mode = Find
    txtCardNo.Locked = False
    cmdPickCode.Enabled = True
End Sub

'Right click menu popup
Private Sub dtgMembership_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Mode <> AddNewEdit Then Exit Sub
    If Button = 2 Then
        dtgName = dtgMembership.Name
        PopupMenu ITGLedgerMain.mnuDetail
    End If
End Sub


'Activate your Toolbar Mode
Private Sub Form_Activate()
    TBBitReload
End Sub

'Release your Object
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
    If Mode = AddNewEdit Then
        MsgBox "Unable to close. You are in Add/New/Edit mode." & vbCr & _
            " Must Save or Undo", vbCritical, Me.Caption
        Cancel = True
        Exit Sub
    End If

    CloseMenuTab ITGLedgerMain
    
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True
    BitVisible ITGLedgerMain.tbrMain
    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = False

    
    
    
    
    Set rsHeader = Nothing
    Set rsDetail = Nothing
    Set rsMembership = Nothing
    Set frmMaintMembership = Nothing

    lCloseWindow = True
    
'    'oForm(Me.Tag).Mode = 1
'    'oForm(Me.Tag).Tag = Me.Tag
End Sub

'Add new record to the recordset
Public Sub TBNew()

    '**********

End Sub

'Undo all changes to the recordset
Public Sub TBUndoAll()
On Error GoTo ErrorHandler

    Mode = Normal
    
    If rsHeader.Status = adRecNew Then TBUndoCurrent
    
    rsHeader.CancelBatch adAffectAll
    rsDetail.CancelBatch adAffectAll
    rsMembership.CancelBatch adAffectAll
    
    UnbindControls
    
    If rsHeader.RecordCount <> 0 Then rsHeader.Bookmark = vBM
    
    Set FrmName = Me
    FormLocking True
    
    If rsHeader.RecordCount <> 0 Then
        BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , lACEdit, , , , , , , , True, True, , True
    Else
        RSZero
        Mode = Find
    End If

    sbRS.Panels(2) = ""
    
    SetDataSource
    SetDataField

ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    ElseIf err.Number = -2147217842 Then 'Operation was cancelled. (Error returned by ITGDateBox)
        TBUndoAll
    End If

End Sub

'Undo changes on the current record
Public Sub TBUndoCurrent()
On Error GoTo ErrorHandler

    GetChild
    If rsHeader.Status = adRecNew Then
        rsDetail.CancelBatch adAffectAll
        rsMembership.CancelBatch adAffectAll
        rsHeader.CancelUpdate
    Else
        rsHeader.CancelBatch adAffectCurrent
        rsDetail.CancelBatch adAffectAll
        rsMembership.CancelBatch adAffectAll
    End If
   
    If rsHeader.RecordCount = 0 Then RSZero
    
ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    ElseIf err.Number = -2147217842 Then 'Operation was cancelled. (Error returned by ITGDateBox)
        TBUndoCurrent
    End If

End Sub

'Save all changes
Public Sub TBSave()
Dim OKUpdate As Boolean
On Error GoTo ErrHandler

    'Audit Trail
    lBoolean = False
    If rsHeader.Status = adRecNew Then lBoolean = True
    
    If Not MandatoryOK Then Exit Sub
    
    OKUpdate = False
    cn.BeginTrans
    
    rsHeader.UpdateBatch adAffectAll
    rsDetail.UpdateBatch adAffectAll
    rsMembership.UpdateBatch adAffectAll
    
    cn.CommitTrans
    OKUpdate = True
    
    Set FrmName = Me
    FormLocking True
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , lACEdit, , , , , , , , True, True, , True
    Mode = Normal
    
    MsgBox "Record/s successfully saved.", vbInformation, "ComUnion"
    sbRS.Panels(2) = ""
    
    'Audit trail
    UpdateLogFile "Client - Membership", Trim(txtCardNo), IIf(lBoolean, "Inserted", "Updated")

ErrHandler:
    If err.Number = -2147217885 Then
        Resume Next
    ElseIf err.Number = -2147217864 Then
        OKUpdate = True
        cn.RollbackTrans
        MsgBox "Record cannot be updated. Some values may have been changed by other user/s since last read." & vbCr & _
                "Records will be automatically refreshed. All changes made to the record will be gone upon refresh.", vbInformation, "ComUnion"
        vBookMark = rsHeader.Bookmark
        UnbindControls
        rsHeader.Requery
        rsDetail.Requery
        rsMembership.Requery
        BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , lACEdit, , , , , , , , True, True, , True
        Mode = Normal
        If rsHeader.RecordCount <> 0 Then
            Set FrmName = Me
            FormLocking True
            SetDataField
            SetDataSource
            rsHeader.Bookmark = vBookMark
        Else
            RSZero
        End If
    End If
    If Not OKUpdate Then
        MsgBox "Transaction update failed.", vbInformation, "ComUnion"
        cn.RollbackTrans
        ErrorLog err.Number, err.Description, Me.Name 'Error log
    End If
    
End Sub

'Sets the form & recorset to add/edit mode
Public Sub TBEdit()
'    If rsHeader!lCancelled = True Then
'        MsgBox "Transaction was alreadycancelled. Edit is not allowed.",vbExclamation , "ComUnion"
'        Exit Sub
'    End If
    Mode = AddNewEdit
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , True, True, , , True, True, , , , True
    Set FrmName = Me
    FormLocking False
    ClrRequired &HC0&
    txtCardNo.Locked = True
    SSTab1.ActiveTab = 0
    txtCardName.SetFocus
    vBM = rsHeader.Bookmark

    txtCode.Locked = True
    cmdPickCode.Enabled = False
End Sub

'Delete record
Public Sub TBDelete()
On Error GoTo ErrorHandler

ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    End If

End Sub

'Search using the frmITGSearch
Public Sub TBFind()
    Mode = Normal
    txtCode.Locked = True
    txtCardNo.Locked = True
    frmITGSearch.Show 'vbModal
End Sub

'Search using the recordset primary key
Public Sub TBFindPrimary()
Dim sTemp As String
        'Find
        If Mode = Find Then
            
            FormWaitShow App.Path & "\Transmit.avi", "Loading data . . ."
            
            Set rsHeader = Nothing
            Set rsDetail = Nothing
            Set rsMembership = Nothing
            Set rsHeader = New ADODB.Recordset
            Set rsDetail = New ADODB.Recordset
            Set rsMembership = New ADODB.Recordset
            
            If Trim(txtCode) = "" Then
                OpenRecordset rsMembership, "*", "client_membership", , True
                sSQL = "SELECT * FROM client_membership_t a left outer JOIN client_membership b ON a.cCardNo = b.cCardNo" _
                        & " AND a.cCompanyID = b.cCompanyID left outer  JOIN client_customer c ON c.cCompanyID = b.cCompanyID AND c.cCode = b.cCode"
                rsDetail.Open sSQL, cn, adOpenStatic, adLockOptimistic
'                OpenRecordset rsDetail, "*", "client_membership_t", , True
                OpenRecordset rsHeader, "*", "CLIENT_CUSTOMER", , True
            Else
                OpenRecordset rsMembership, "*", "client_membership", "WHERE cCode LIKE '" & Trim(txtCode) & "%'", True
                sSQL = "SELECT * FROM client_membership_t a INNER JOIN client_membership b ON a.cCardNo = b.cCardNo" _
                        & " AND a.cCompanyID = b.cCompanyID" _
                        & IIf(sTemp = "", "", " WHERE " & sTemp)
                rsDetail.Open sSQL, cn, adOpenStatic, adLockOptimistic
'                OpenRecordset rsDetail, "*", "client_membership_t", "WHERE cCardNo LIKE '" & Trim(txtCardNo) & "%'", True
                OpenRecordset rsHeader, "*", "CLIENT_CUSTOMER", "WHERE cCode LIKE '" & Trim(txtCode) & "%'", True
            End If

            Set FrmName = Me
            FormLocking True

            If rsHeader.RecordCount = 0 Then
                FormWaitHide
                MsgBox "No matching record/s found.", vbInformation, "ComUnion Search"
                rsHeader.Close
                rsDetail.Close
                rsMembership.Close
                BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True, , , True
                txtCode.Locked = False
                txtCode.SetFocus
                Exit Sub
            End If

            SetDataSource
            SetDataField

            txtCode.BackColor = &HE0FFFF
            txtCardNo.BackColor = &HE0FFFF
            
            Mode = Normal

            BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , lACEdit, , , , , , , , True, True, , True

            FormWaitHide
    Else
    RSZero
    Mode = Find
    cmdPickCode.Enabled = True
    End If
End Sub

'Reload menu buttons (do not delete this sub)
Public Sub TBBitReload()
    BitVisible ITGLedgerMain.tbrMain, True
    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = True
    BitReload ITGLedgerMain, Me, ITGLedgerMain.tbrMain, sBit
    Set FrmName = Me
    dtgName = dtgMembership.Name
End Sub

'Close active window
Public Sub TBCloseWindow()
    Unload Me
End Sub

'Move first
Public Sub TBFirstRec()
    If rsHeader.State <> adStateOpen Then Exit Sub
    MoveFirst rsMembership
End Sub

'Move previuos
Public Sub TBPrevRec()
    If rsHeader.State <> adStateOpen Then Exit Sub
    MovePrevious rsMembership
End Sub

'Move next
Public Sub TBNextRec()
    If rsHeader.State <> adStateOpen Then Exit Sub
    MoveNext rsMembership
End Sub

'Move last
Public Sub TBLastRec()
    If rsHeader.State <> adStateOpen Then Exit Sub
    MoveLast rsMembership
End Sub

'Add new line to the detail recordset
Public Sub TBNewLine()
    If Trim(cboType) = "" Then
        MsgBox "Please select transaction type.", vbExclamation, "ComUnion"
        Exit Sub
    Else
            If rsMembership!cCardNo = "" Then Exit Sub

            If Trim(txtName) = "" Then
                MsgBox "Please pick client.", vbExclamation, "ComUnion"
                Exit Sub
            End If
            
            If dtgName = "dtgMembership" Then
                rsDetail.AddNew
                rsDetail!cCompanyID = COID
                rsDetail!cCardNo = Trim(rsMembership!cCardNo)
                dtgMembership.Col = 0
'                dtgMembership.Columns(0).Value = ""
                GetChild
                If rsDetail.RecordCount <> 0 Then rsDetail.MoveLast
                dtgMembership.SetFocus
            End If
        
    End If
    
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , True, True, , , True, True, , , , True


End Sub

'Delete line in the detail recordset
Public Sub TBDeleteLine()
On Error GoTo ErrorHandler
    
    If dtgName = dtgMembership.Name Then
        If rsDetail.RecordCount = 0 Then Exit Sub
        vBookMark = dtgMembership.Bookmark
        GetChild
        dtgMembership.Bookmark = vBookMark
        rsDetail.Delete adAffectCurrent
'        ComputeTotal
    End If
    GetChild

    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , True, True, , , True, True, , , , True

ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    End If

End Sub

'Undo All
Public Sub TBUndoLineAll()
On Error GoTo ErrorHandler

    MsgBox "Unavailable on " & Me.Name

ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    End If



End Sub


'Undo current line
Public Sub TBUndoLineCurrent()
    MsgBox "Unavailable on " & Me.Name
End Sub

'Post current record
Public Sub TBPostRecord()
    MsgBox "Unavailable on " & Me.Name
End Sub

'Cancel current record
Public Sub TBCancelRecord()
    MsgBox "Unavailable on " & Me.Name
End Sub

'Print
Public Sub TBPrintRecord()
    MsgBox "Unavailable on " & Me.Name
End Sub

'Sets the data source of the controls
Sub SetDataSource()
    Set FrmName = Me
    BindControls rsMembership
    Set dtgList.DataSource = rsMembership
    Set dtgMembership.DataSource = rsDetail
'    Set txtLongDesc.DataSource = rsDetail
    
End Sub

'Sets the data field for every bounded Controls
Sub SetDataField()
    With rsMembership
        txtCardNo.DataField = !cCardNo
        txtCardName.DataField = !cCardName
        txtType.DataField = !cType
        dtbDate.DataField = !dAppDate
        txtAppVenue.DataField = !cAppVenue
        txtAttendBy.DataField = !cAttendedBy
        txtPermCardAvailable.DataField = !cPCAvailable
        txtPermCardRCV.DataField = !cPCRCV
        dtbPCRDate.DataField = !dPCRCVDate
        txtPermCardOrder.DataField = !cPCOrdered
        txtReceivedBy.DataField = !cPCReceivedBy
        txtRelationship.DataField = !cRelationship
        txtTempCard.DataField = !cTempCard
        txtEncodedBy.DataField = !cEncodedBy
        txtORNo.DataField = !cORNo
        txtRemarks.DataField = !cRemarks
        txtJobTitle.DataField = !cPEmployment
        txtEmpAdd.DataField = !cAddress
        txtEmpPhone1.DataField = !cTel1
        txtEmpPhone2.DataField = !cTel2
        txtEmpFax.DataField = !cFax
        txtCode.DataField = !cCode
        txtName.DataField = !cName
    End With
End Sub

Private Sub rsHeader_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error GoTo ErrorHandler

    If Not (rsHeader.EOF) Or Not (rsHeader.BOF) Then
        'Status bar setup
        sbRS.Panels(1) = "Record: " & IIf((rsHeader.AbsolutePosition = -2), "0", rsHeader.AbsolutePosition) & "/" & rsHeader.RecordCount

        If rsHeader.Status <> adRecNew Then
            txtCode.Locked = True
        Else
            txtCode.Locked = False
        End If

        If Mode = AddNewEdit Then
            Select Case rsHeader.Status
                Case adRecNew
                    sbRS.Panels(2) = "New"
                Case adRecModified
                    sbRS.Panels(2) = "Modified"
                Case Else
                    sbRS.Panels(2) = ""
            End Select
        Else
            sbRS.Panels(2) = ""
        End If
        
        GetChild
    Else
        sbRS.Panels(1) = "Record: 0/0"
        sbRS.Panels(2) = ""
        txtCode.Locked = False
    End If

    If Mode = AddNewEdit Then
        dtgMembership.Refresh
    End If

ErrorHandler:
    'Err.Number -2147217885
    'Description - Row handle referred to a deleted row or a row marked for deletion.
    If err.Number = -2147217885 Then
        Resume Next
    End If

End Sub

Private Sub Timer1_Timer()
    If Mode = AddNewEdit Then
        SSTab1.TabEnabled(1) = False
    Else
        SSTab1.TabEnabled(1) = True
    End If
End Sub

Private Sub txtCode_Change()
    txtName = ""
'    sSQL = "SELECT (LastName + ', ' + LastName + ' ' + MI + '.') AS Name FROM SEC_USER WHERE UserID = '" & Trim(txtUserID) & "'"
'    sSQL = "SELEC"
'    Set rs = New Recordset
'    rs.Open sSQL, cn, adOpenForwardOnly, adLockReadOnly
'    If rs.RecordCount <> 0 Then
'        txtName = Trim(rs!Name)
'    Else
'        txtName = ""
'    End If
'    Set rs = Nothing
    txtName = GetValueFrTable("cName", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'")
    txtSAddress = GetValueFrTable("cAddress", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'")
    txtSCity = GetValueFrTable("cCity", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'")
    txtSCountry = GetValueFrTable("cCountry", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'")
    txtSCountry = GetValueFrTable("cCountry", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'")
    txtSState = GetValueFrTable("cState", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'")
    txtSZip = GetValueFrTable("cZip", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'")
    txtTel1 = GetValueFrTable("cTel1", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'")
    txtTel2 = GetValueFrTable("cTel2", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'")
    txtFax = GetValueFrTable("cFax", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'")
    txtEmail = GetValueFrTable("cEmail1", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'")
    txtJobTitle = GetValueFrTable("cJobTitle", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'")
    txtEmpAdd = GetValueFrTable("cAddress", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'")
'    If Mode = AddNewEdit Then
'        rsHeader!cTerms =GetValueFrTable("cTerm","CLIENT_CUSTOMER", "cCode = '" &Trim(txtCode) & "'")
'        rsHeader!cAddress = GetAddress("CLIENT_CUSTOMER", "cCode = '" &Trim(txtCode) & "'") & ""
'    End If
    
End Sub

Private Sub txtCode_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtName) = "" And Trim(txtCode) <> "" Then cmdPickCode_Click
End Sub

Private Sub txtCardNo_LostFocus()
    'Does Code Already Exist
    If Mode = AddNewEdit Then
        If Trim(txtCardNo) = "" Then
            MsgBox "Empty primary input.", vbInformation, "ComUnion"
            txtCardNo.SetFocus
        Else
            If rsHeader.Status <> adRecNew Then Exit Sub
            txtCardNo = Trim(txtCardNo)
            If IDExisting(rsHeader, "cCardNo", "CLIENT_MEMBERSHIP", Trim(rsHeader!cCardNo)) Then
                MsgBox "Transaction No. already exist.", vbInformation, "ComUnion"
                txtCardNo.SetFocus
            End If
        End If
    End If
End Sub

'Check if all mandatory fields are complete
Function MandatoryOK() As Boolean

    MandatoryOK = True

    If Trim(txtCardNo) = "" Then
        MandatoryOK = False
        MsgBox "Field 'Transaction Number' is mandatory. Null value is not allowed.", vbInformation, "ComUnion"
        txtCardNo.SetFocus
        Exit Function
    End If
    
'    ComputeAmount
'    ComputeTotal
    
    If rsHeader.Status = adRecNew Then
        If IDExisting(rsHeader, "cCardNo", "client_membership", Trim(rsMembership!cCardNo)) Then
            MandatoryOK = False
            MsgBox "Transaction No. already exist.", vbInformation, "ComUnion"
            txtCardNo.SetFocus
            Exit Function
        End If
    End If

    'Required fields
    If Trim(dtbDate.Text) = "__/__/____" Then
        MandatoryOK = False
        MsgBox "Field 'Transaction Application Date ' is mandatory. Null value is not allowed.", vbInformation, "ComUnion"
        dtbDate.SetFocus
        Exit Function
'    ElseIf Trim(txtType) = "" Then
'        MandatoryOK = False
'        MsgBox "Field 'Type' is mandatory.Null value is not allowed.",vbInformation , "ComUnion"
'        cboType.SetFocus
'        Exit Function
    ElseIf Trim(txtType) = "" Then
        MandatoryOK = False
        MsgBox "Field 'Type' is mandatory. Null value is not allowed.", vbInformation, "ComUnion"
        cboType.SetFocus
        Exit Function
    ElseIf Trim(txtCode) = "" Then
        MandatoryOK = False
        MsgBox "Field 'Customer' is mandatory. Null value is not allowed.", vbInformation, "ComUnion"
        txtCode.SetFocus
        Exit Function
    End If
    
    GetChild
    
    'Transaction without details
'    If rsDetail.RecordCount = 0 Then
'        MandatoryOK = False
'        MsgBox "Cannot save transaction without details.", vbInformation, "ComUnion"
'        dtgMembership.SetFocus
'        Exit Function
'    End If
    
    If rsDetail.RecordCount <> 0 Then rsDetail.MoveFirst
'    Do Until rsDetail.EOF
'        If rsDetail.Status = (adRecNew) Or rsDetail.Status = (adRecModified) Then
'            If IsNull(rsDetail!cItemNo) Then
'                rsDetail.Delete
'            ElseIf Trim(rsDetail!cItemNo) = "" Then
'                rsDetail.Delete
'            Else: rsDetail.MoveNext
'            End If
'        Else: rsDetail.MoveNext
'        End If
'    Loop

    GetChild

'    If rsDetail.RecordCount < 1 Then
'        MsgBox "Cannot save transaction without details.", vbExclamation,"ComUnion"
'        MandatoryOK = False
'        Exit Function
'    End If
    
'    If rsDetail.RecordCount <> 0 Then

rsDetail.MoveFirst
'    Do Until rsDetail.EOF
'        If rsDetail!cType = "Asset" Then
'            If GetValueFrTable("cAssetNo","ASSET", "cAssetNo = '" & Trim(rsDetail!cItemNo) & "'") & "" = "" Then
'                MsgBox "Cannot savetransaction, please create a fixed assets first.", vbExclamation, "ComUnion"
'                MandatoryOK = False
'                Exit Function
'            End If
'        Else
'        End If
'        rsDetail.MoveNext
'    Loop

End Function


'Filter detail recordset to header's primary
Private Sub GetChild()
'On Error Resume Next
    rsDetail.Filter = "cCardNo = '" & Trim(rsMembership!cCardNo) & "'"
End Sub

'Sets the form if record number is zero
Private Sub RSZero()
    sbRS.Panels(1) = "Record: 0/0"
    sbRS.Panels(2) = ""
    sbRS.Panels(4) = ""
    sbRS.Panels(5) = ""
    
    Set dtgMembership.DataSource = Nothing
    dtgMembership.Refresh
    
    Set FrmName = Me
    UnbindControls
    TextClearing
    FormLocking True
    
    If rsHeader.State = adStateOpen Then rsHeader.Close
    If rsDetail.State = adStateOpen Then rsDetail.Close
    
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, , , , , , , , , True, , , True
    
    txtCardNo.Locked = False
    txtCardNo.SetFocus
    
    Mode = Find
    
End Sub

Sub SearchObj(lEnable As Boolean)
    dtbDate.Enabled = lEnable
    cmdPickCode.Enabled = lEnable
    cboType.Enabled = lEnable
End Sub

Private Function GetSearchString() As String
On Error GoTo ErrorHandler
Dim sWhere As String

    GetSearchString = True
    
'    sWhere = "cType = 'Purchase' "
    If Trim$(txtCardNo.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cCardNo LIKE '" & Trim$(txtCardNo.Text) & "%'"
    End If

    If Trim$(dtbDate.Text) <> "__/__/____" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & "dAppDate = '" & Trim$(dtbDate.Text) & "'"
    End If
    
    If Trim$(txtCode.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cCode LIKE '" & Trim$(txtCode.Text) & "%'"
    End If
    
    If Trim$(txtType.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cTypeLIKE '" & Trim$(txtType.Text) & "%'"
    End If
    
    GetSearchString = Trim$(sWhere)

    Exit Function
ErrorHandler:
    GetSearchString = "ERROR"
End Function





